Dim fso, fld, fldName, drvName, TestFile, fileName
drvName="c:\"
fldName = "folder"
fileName = inputbox("Podaj nazw pliku:", "Nazwa pliku")
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(drvName & fldName)) Then
    msgbox("Folder istnieje.")
Else
    Set fld = fso.CreateFolder(drvName & fldName)
End If

Set TestFile = fso.CreateTextFile(drvName & fldName & "\" & fileName & ".txt", True)
TestFile.WriteLine("Tutaj bdzie zawarto pliku!")
TestFile.Close

